﻿Public Class BEProva
  Private _intId As Integer
  Private _strTitulo As String
  Private _strCodigo As String
  Private _questoes As IList(Of BEQuestao)
  Private _strTempoTotal As String
  Private _tsTempoTranscurrido As TimeSpan
  Private _intRespostasCertas As Integer
  Private _intNumeroDeQuestoesRespondidas As Integer
  Private _intNumeroDeQuestoes As Integer

  Sub New()
    _intId = 0
    _strTitulo = ""
    _strCodigo = ""
    _questoes = New List(Of BEQuestao)
    _strTempoTotal = ""
  End Sub

  Sub New(ByVal intId As Integer)
    Me.New()
    _intId = intId
  End Sub

  Public Property Id() As Integer
    Get
      Return _intId
    End Get
    Set(ByVal value As Integer)
      _intId = value
    End Set
  End Property

  Public Property Titulo() As String
    Get
      Return _strTitulo
    End Get
    Set(ByVal value As String)
      _strTitulo = value
    End Set
  End Property

  Public Property Codigo() As String
    Get
      Return _strCodigo
    End Get
    Set(ByVal value As String)
      _strCodigo = value
    End Set
  End Property

  Public Property Questoes() As IList(Of BEQuestao)
    Get
      Return _questoes
    End Get
    Set(ByVal value As IList(Of BEQuestao))
      _questoes = value
    End Set
  End Property

  Public Property TempoTotal() As String
    Get
      Return _strTempoTotal
    End Get
    Set(ByVal value As String)
      _strTempoTotal = value
    End Set
  End Property

  Public Property TempoTranscurrido() As TimeSpan
    Get
      Return _tsTempoTranscurrido
    End Get
    Set(ByVal value As TimeSpan)
      _tsTempoTranscurrido = value
    End Set
  End Property

  Public Property RespostasCertas() As Integer
    Get
      Return _intRespostasCertas
    End Get
    Set(ByVal value As Integer)
      _intRespostasCertas = value
    End Set
  End Property

  Public Property NumeroDeQuestoesRespondidas() As Integer
    Get
      Return _intNumeroDeQuestoesRespondidas
    End Get
    Set(ByVal value As Integer)
      _intNumeroDeQuestoesRespondidas = value
    End Set
  End Property

  Public Property NumeroDeQuestoes() As Integer
    Get
      Return _intNumeroDeQuestoes
    End Get
    Set(ByVal value As Integer)
      _intNumeroDeQuestoes = value
    End Set
  End Property

End Class
